object GraphicForm: TGraphicForm Left = 248 Top = 104 Width = 385 Height = 334 BorderIcons = [biSystemMenu, biMaximize] Caption = 'GraphicForm' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True PixelsPerInch = 96 Position = poScreenCenter Scaled = False OnCreate = FormCreate OnKeyDown = FormKeyDown OnResize = FormResize TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 377 Height = 264 Align = alClient BevelOuter = bvNone BorderWidth = 5 TabOrder = 0 object ScrollBox: TScrollBox Left = 5 Top = 5 Width = 367 Height = 254 Align = alClient Color = clWhite ParentColor = False PopupMenu = PopupMenu1 TabOrder = 0 object Image: TImage Left = 0 Top = 0 Width = 321 Height = 208 PopupMenu = PopupMenu1 Stretch = True end end end object Panel2: TPanel Left = 0 Top = 264 Width = 377 Height = 43 Align = alBottom BevelOuter = bvNone TabOrder = 1 object UserBtn: TButton Left = 4 Top = 6 Width = 80 Height = 30 Caption = 'UserBtn' TabOrder = 0 Visible = False end object OKBtn: TBitBtn Left = 136 Top = 6 Width = 80 Height = 30 Caption = '&OK' TabOrder = 1 Kind = bkOK end object CancelBtn: TBitBtn Left = 220 Top = 6 Width = 80 Height = 30 TabOrder = 2 Kind = bkCancel end end object OpenDlg: TOpenDialog Filter = 'Windows Bitmaps|*.BMP' Options = [ofPathMustExist, ofFileMustExist] Left = 258 Top = 18 end object SaveDlg: TSaveDialog DefaultExt = 'BMP' Filter = 'Windows Bitmap|*.BMP' Options = [ofOverwritePrompt, ofPathMustExist] Left = 291 Top = 17 end object PopupMenu1: TPopupMenu Left = 226 Top = 18 object N25: TMenuItem Caption = '25%' OnClick = N25Click end object N50: TMenuItem Caption = '50%' OnClick = N25Click end object N75: TMenuItem Caption = '75%' OnClick = N25Click end object N100: TMenuItem Caption = '100%' Checked = True OnClick = N25Click end object N125: TMenuItem Caption = '125%' OnClick = N25Click end object N150: TMenuItem Caption = '150%' OnClick = N25Click end object N175: TMenuItem Caption = '175%' OnClick = N25Click end object N200: TMenuItem Caption = '200%' OnClick = N25Click end object CopyToClip: TMenuItem Break = mbBarBreak Caption = 'Kopieren' OnClick = CopyToClipClick end object InsertFromClip: TMenuItem Caption = 'Einf�gen' OnClick = InsertFromClipClick end object Laden1: TMenuItem Caption = 'Laden' OnClick = Laden1Click end object Speichern1: TMenuItem Caption = 'Speichern' OnClick = Speichern1Click end end end